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Abstract 


Presents  a  procedure  for  computation  of  yield  tables  for 
diseased  even-aged  stands  of  ponderosa  pine  in  Arizona  and  New 
Mexico.  Stand  age  at  time  of  initial  infection  by  dwarf  mistletoe 
may  be  varied  as  desired.  Other  control  variables  include  stand 
age  at  initial  thinning,  stocking  goals,  frequency  of  thinning, 
and  regeneration  system.  Stand  conditions  and  severity  of  dwarf 
mistletoe  infestation  change  with  time  and  in  response  to  inter- 
mediate cuttings. 

Keywords:  Stand  yield  tables,  timber  management,  forest  manage- 
ment, simulation,  Arceuthobium  vaginatum,  Pinus  ponderosa. 
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Simulating  Yields  of  Southwestern  Ponderosa  Pine  Stands, 
Including  Effects  of  Dwarf  Mistletoe 

Clifford  A.  Myers,  Frank  G.  Hawksworth,  and  Paul  C.  Lightle 


Computation  procedures  for  predicting 
yields  and  a  computer  program  SWYLD  that 
prints  yield  tables  are  described  for  even-aged 
stands  of  southwestern  ponderosa  pine  (Pinus 
ponderosa  Laws.).  Details  of  field  work  and 
computations  that  apply  to  healthy  stands  of 
ponderosa  pine  have  been  presented  elsewhere 
(Myers  1971).  Such  procedures  will  not,  how- 
ever, provide  some  items  of  information  essential 
for  decisionmaking  in  the  Southwest.  For 
practical  application,  important  and  predictable 
causes  of  reduced  growth  and  mortality  should 
be  included  in  the  computations.  One  such 
cause  is  included  here. 

Dwarf  mistletoe  (Arceuthobium  vaginatum 
subsp.  crypt  op  odum  (Engelm.)  Hawks.  &  Wiens) 
is  widespread  in  southwestern  ponderosa  pine 
forests.  Andrews  and  Daniels  (1960)  found  this 
dwarf  mistletoe  on  36  percent  of  some  2,700 
ponderosa  pine  plots  located  throughout  Ari- 
zona and  New  Mexico.  In  the  Lincoln  National 
Forest  and  adjacent  Mescalero  Apache  Reserva- 
tion in  southern  New  Mexico,  the  infection  rate 
was  over  50  percent  (Andrews  and  Daniels 
1960,  Hawksworth  and  Lusher  1956). 

Several  studies  have  documented  the  ad- 
verse effects  of  dwarf  mistletoe  on  the  height 
and  diameter  growth  of  individual  ponderosa 
pines  (Korstian  and  Long  1922,  Sperry  1934, 
Hawksworth  1961).  Such  studies  do  not,  how- 
ever, reveal  the  total  stand  loss  due  to  dwarf 
mistletoe.  They  do  not  report  mortality,  but 
give  information  on  surviving  trees  only. 

Dwarf  mistletoe  is  one  of  the  four  major 
causes  of  mortality  in  southwestern  ponderosa 
pine  (Myers  and  Martin  1963,  Pearson  1939). 
Pearson  (1938)  found  mortality  in  heavily  in- 
fested cutover  stands  to  be  about  five  times 
that  in  comparable  lightly  infested  or  healthy 
stands.  On  the  Mescalero  Apache  Reservation, 
New  Mexico,  mortality  in  stands  with  dwarf 
mistletoe  was  nearly  twice  as  high  in  infested 
stands  as  in  healthy  stands  (Hawksworth  and 
Lusher  1956).  The  differences  were  most  pro- 
nounced in  cutover  areas,  where  the  mortality 
rate  in  infested  stands  was  3.3  times  that  in 
mistletoe-free  stands. 

In  the  all-aged  stands  of  Grand  Canyon 
National  Park,  mistletoe-caused  mortality  and 
growth  reduction  offset  10-year  basal  area  growth 
in   moderately   and   heavily  infested  stands 


(Lightle  1966).  In  pole-sized  stands  on  the 
Mescalero  Reservation,  however,  basal  area  de- 
clined during  a  comparable  period  only  in 
heavily  infested  stands. 

The  studies  referred  to  above  dealt  pri- 
marily with  the  cumulative  effects  of  dwarf 
mistletoe  in  unmanaged  stands.  They  do  not 
provide  data  that  can  be  used  directly  for  yield 
prediction  in  managed  stands  or  for  compari- 
sons of  alternatives.  To  obtain  the  necessary 
pine-mistletoe  relationships,  procedures  used 
in  lodgepole  pine  stands  (Myers,  Hawksworth, 
and  Stewart  1971)  were  repeated  in  the 
Southwest. 


Information  Used 

Field  and  office  procedures  used  to  obtain 
the  relationships  in  program  SWYLD  were  simi- 
lar to  those  outlined  by  Myers  (1971)  for 
healthy  stands.  Additional  information  on 
pine-dwarf  mistletoe  interactions  was  obtained 
from  several  temporary  and  permanent  plots. 
Most  data  were  from  a  yield  study  2  based  on 
55  transects  located  throughout  the  ponderosa 
pine  forests  of  Arizona  and  New  Mexico.  Addi- 
tional information  was  obtained  from  permanent 
plots  at  Fort  Valley  Experimental  Forest  and 
Grand  Canyon,  Arizona,  and  the  Mescalero 
Apache  Reservation,  New  Mexico.  Derivations 
of  functions  that  include  measures  of  infection 
by  dwarf  mistletoe  are  described  briefly  below 
and  in  detail  elsewhere  (Myers  et  al.  1971). 

Basal  area  and  other  per-acre  values,  aver- 
age stand  diameter,  and  site  index  (Meyer  1938) 
are  used  as  dependent  and  independent  vari- 
ables to  obtain  the  prediction  equations  used 
in  program  SWYLD  (appendix  1).  The  equations 
shown  as  FORTRAN  statements  in  the  program 
listing  contain  only  significant  independent  vari- 
ables. They  indicate  the  possible  appearance  of 
similar  functions  for  other  species  or  localities. 

Items  computed  from  field  data  and  uses 
made  of  them  in  SWYLD  are  as  follows: 

2Hawksworth,  F.  G.,  P.  C.  Lightle,  and  T.  E.  Hinds. 
Effects  of  dwarf  mistletoe  on  growth  and  yields  of  pon- 
derosa pine.  (Manuscript  in  preparation  at  Rocky  Mt. 
Forest  and  Range  Exp.  Stn.) 
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1.  Equations  to  estimate  mortality  in  healthy 
(OUT)  and  diseased  (DIE)  stands  are  com- 
puted from  density,  mortality,  and  other 
data. 

2.  Prediction  equations  for  height  (HTSO)  are 
determined  from  healthy  stands  with  densities 
within  the  range  of  possible  management 
goals.  Infected  plots  provide  data  used  to 
derive  the  equation  for  reduction  in  height 
growth  due  to  disease  (PCT). 

3.  Initial  average  diameters  and  other  variables 
from  healthy  stands  are  used  to  obtain  the 
equation  for  average  d.b.h.  after  10  years 
(DBHO).  Data  from  diseased  stands  provide 
the  equation  for  reduction  in  diameter  growth 
due  to  dwarf  mistletoe  (TEM).  Average 
stand  diameter  is  the  diameter  of  the  tree 
of  average  basal  area. 

4.  Cubic-  and  board-foot  volumes  per  acre  are 
computed  from  tree  volume  equations  (Myers 
1963).  Total  cubic  volumes  then  provide 
equations  for  stand  volume  in  cubic  feet 
(TOTO  and  TOTT).  Total  volumes  plus 
merchantable  cubic-  and  board-foot  volumes 
are  used  to  obtain  equations  for  the  volume 
conversion  factors  (FCTR  and  PROD)  com- 
puted by  subroutine  SWVOL. 

5.  Several  prediction  equations  are  used  to 
obtain  dwarf  mistletoe  ratings  (DMR)  in 
SWYLD.  One  equation  for  DMR  predicts 
the  initial  rating  if  the  stand  has  never  been 
thinned.  Other  equations  for  DMR  predict 
the  current  rating  as  an  increase  from  a 
past  value.  An  expected  post-thinning  rating 
(DMRT)  is  computed  if  infection  index  is 
not  so  high  (3.0  or  greater)  as  to  make 
thinning  impractical,  and  if  the  stand  has 
not  already  been  thinned  from  above.  An 
equation  in  subroutine  SWCUT2  then  pre- 
dicts the  percentage  of  trees  to  be  removed 
by  thinning  from  above  (REDT)  to  obtain 
the  expected  rating.  For  subsequent  thin- 
nings, DMRT  is  computed  from  intensity 
of  thinning  and  rating  prior  to  thinning. 

Computation  of  ratings  by  SWYLD  begins 
with  use  of  the  variable  START.  This  is 
the  average  of  the  tree  ages  when  each  part 
of  the  stand  is  first  infected.  It  is  not 
the  age  when  the  first  tree  in  the  stand 
is  infected. 

6.  Thinning  intensity  in  healthy  stands,  or 
in  stands  to  be  thinned  from  below,  is  based 


on  a  relationship  between  d.b.h.  and  basal 
area.  Basis  for  the  computations  is  given 
in  the  following  tabulation: 
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These  values,  SQFT  in  subroutine  SWCUT1 
and  SWCUT3,  represent  one  possible  series 
of  densities  that  could  be  used  to  guide 
successive  thinnings.  The  growing  stock 
level  shown  above  is  80;  reserve  basal  area 
remains  constant  at  80  square  feet  after 
stand  d.b.h.  reaches  10.0  inches.  Other  stock- 
ing levels  are  named  the  same  way.  For 
example,  level  100  means  that  reserve  basal 
area  will  be  100  square  feet  when  d.b.h. 
is  10.0  inches  or  larger.  Basal  area  for 
level  100  and  diameters  smaller  than  10.0 
inches  are  obtained  by  multiplying  each  basal 
area  of  level  80  by  the  amount  100  80. 
Values  for  any  stocking  level,  THIN  orDLEV 
in  SWYLD,  are  computed  similarly. 

Equations  for  DBHP  in  subroutine  SWCUT1 
and  SWCUT3  also  describe  the  tabulated 
values.  In  this  case,  diameter  is  estimated 
when  basal  area  and  the  desired  stocking 
level  are  known.  Variables  BREAK  and 
BUST  indicate  points  where  the  relationship 
of  diameter  on  basal  area  has  been  broken 
into  segments  for  convenience  in  regression 
analysis. 

Growing  stock  levels  to  be  left  after  thinning 
from  below  are  indicated  by  assigning  values 
to  THIN  and  DSTY  on  data  card  type  4, 
as  shown  in  the  listing  of  Order  and  Con- 
tents of  the  Data  Deck.  Each  assigned 
value  is  a  growing  stock  level  or  the  basal 
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area  left  when  d.b.h.  after  thinning  is  10.0 
inches  or  greater. 

7.  Equations  for  DBHE  (used  as  DBHT)  in 
SWCUT1  and  SWCUT3  and  for  ADDHT  in 
the  main  routine  are  derived  from  data  ob- 
tained in  a  variety  of  thinned  stands.  Thin- 
nings could  also  be  simulated  on  a  com- 
puter to  obtain  data  for  the  DBHE  and 
ADDHT  equations  (Myers  1971). 

8.  Values  for  AGEO,  DBHO,  and  DENO  on 
data  card  type  4  are  obtained  by  examining 
numerous  young  stands.  Average  d.b.h. 
at  various  ages  is  determined  for  each  site 
class  and  for  each  of  several  levels  of  stand 
density.  These  data  are  gathered  by  users 
of  the  program  to  partially  describe  their 
management  objectives. 

Description  of  Program  SWYLD 

Program  SWYLD  consists  of  a  main  program 
and  four  subroutine  subprograms.    The  main 


program  performs  most  computations  and  writes 
the  yield  tables.  Three  subroutines  compute 
average  stand  d.b.h.  and  stand  density  after 
thinning.  The  fourth  subroutine  computes 
factors  that  are  used  in  the  main  program 
to  convert  total  cubic  feet  to  other  units. 

Operations  performed  by  each  routine  are 
identified  by  the  comment  statements  of  the 
source  program  (appendix  1).  Initial  stand 
conditions  and  values  of  several  control  vari- 
ables are  read  into  computer  memory  in  the 
order  and  format  given  in  the  tabulation  of 
Order  and  Contents  of  the  Data  Deck.  Zero 
punches  in  any  data  card  except  card  type  5 
will  cause  control  to  move  to  the  end  of  the 
program,  a  diagnostic  message  to  be  printed, 
and  termination  of  the  job.  The  number  of 
yield  tables  computed  and  printed  is  determined 
by  the  values  assigned  NTSTS  on  card  type  1 
and  MIX  on  card  type  3.  NTSTS  is  the  number 
of  sets  of  tables  to  be  produced.  MIX  is  the 
number  of  tables  in  a  set  or  the  number  of 
growing  stock  levels  (DLEV)  tested. 


Order  and  Contents  of  the  Data  Deck 


Card 
type 


Number  of 
cards 


Variable 
name  Columns 


per  test 


per  test 


NTSTS 


COMBF 


JCYCL 


MIX 


AGEO 


DBHO 


DENO 


1-4 


COMCU  1-8 


9-16 


1-4 


5-8 


1-8 


9-16 


17-24 


Format  Description  of  variable 

14  Number  of  tests  per  batch. 

The  number  of  sets  of  yield 
tables  to  be  produced. 

F8.3  Minimum  cut  in  merchant- 
able cubic  feet  to  be  included 
in  total  yields.  Must  be  at 
least  1.0. 

F8.3  Minimum  cut  in  board  feet 
to  be  included  in  total  yields. 
Must  be  at  least  1.0. 

14  Interval     between  inter- 

mediate cuts.  A  multiple 
of  RINT. 

14  Number  of  stocking  levels 

or  values  of  DLEV  to  be 
examined  in  one  test. 

F8.3  Initial  age  to  be  shown  in 
a  yield  table.  Stand  age 
when  first  thinning  occurs. 

F8.3  Average  stand  d.b.h.  just 
prior  to  initial  thinning  at 
stand  age  AGEO. 

F8.3  Number  of  trees  per  acre 
just  prior  to  initial  thinning 
at  stand  age  AGEO. 
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Card      Number  of  Variable 

type         cards  name  Columns  Format 

DSTY  25-32  F8.3 

RINT  33-40  F8.3 

SITE  41-48  F8.3 

THIN  49-56  F8.3 

START  57-64  F8.3 

5  1  REGN(l)  1-8  F8.3 

per  test 

VLLV(l)  9-16  F8.3 

INVL(l)  17-24  F8.3 

REGN(2)  25-32  F8.3 

VLLV(2)  33-40  F8.3 

INVL(2)  41-48  F8.3 

REGN(3)  49-56  F8.3 


Description  of  variable 

Lowest  growing  stock  level 
for  intermediate  cuts  after 
initial  thinning.  Level  will 
increase  by  10  as  many  times 
as  specified  by  MIX  on  card 
type  3. 

Number  of  years  for  which 
growth  and  infection  equa- 
tions make  one  projection 
of  growth  or  change.  Value 
is  10.0  for  the  equations 
given  in  appendix  1. 
Site  index  on  which  the  set 
of  yield  tables  is  to  be  based. 
Growing  stock  level  for  ini- 
tial thinning  at  age  AGEO. 
May  equal  DLEV. 
Stand  age  at  which  dwarf 
mistletoe  infection  begins. 
Never  enter  zero.  Enter 
number  larger  than  largest 
REGN(I)  if  infection  will 
not  occur  during  the 
rotation. 

Stand  age  at  which  first  re- 
generation cut  will  occur. 
Must  never  be  zero  or  blank, 
as  this  is  rotation  length 
for  clearcutting. 
Percentage  of  previous 
DLEV  to  be  left  at  age 
REGN(l).  Will  be  zero  with 
clearcutting.  Enter  as  a 
decimal. 

New  interval  between  cuts 
in  effect  after  age  REGN- 

(1)  .  Will  be  zero  with 
clearcutting. 

Stand  age  at  which  second 
regeneration  cut,  if  any,  will 
occur.  Removal  of  seed 
trees  or  second  cut  of 
shelterwood. 

Percentage  of  previous 
DLEV,  including  effect  of 
VLLV(l),  to  be  left  at  age 
REGN(2).  May  be  zero. 
Enter  as  a  decimal. 
New  interval  between  cuts 
in  effect  after  age  REGN- 

(2)  .  May  be  zero. 

Stand  age  at  which  third 
regeneration  cut,  if  any,  will 
occur.  Final  cut  of  3-cut 
shelterwood. 
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Subsequent  operations  are  performed  in 
the  following  order: 

1.  Computation  of  average  height,  basal  area, 
volume,  and  mistletoe  rating  just  prior  to 
initial  thinning. 

2.  Change  of  interval  between  cuttings  and  of 
residual  stand  density  if  a  regeneration  cut 
is  due  and  if  changes  are  needed.  Entries 
on  data  card  type  5  control  the  changes. 
If  the  stand  is  to  be  clearcut,  stand  age 
at  time  of  clearcutting  or  REGN(l)  is  the 
only  entry  needed.  Seed-tree  cutting  requires 
that  values  for  all  items  to  and  including 
REGN(2)  be  punched  in  card  type  5.  REGN- 
(1)  is  stand  age  at  first  regeneration  cutting 
and  REGN(2)  is  age  of  the  seed  trees  when 
they  are  removed.  The  interval  between 
these  two  cuttings  is  INVL(l).  Up  to  three 
regeneration  cuttings  are  possible  with  the 
shelterwood  system.  Stand  age  at  final  cut 
will  be  REGN(2)  for  two-cut  shelterwood 
and  REGN(3)  for  three-cut  shelterwood.  If 
a  regeneration  cut  is  scheduled,  it  will  be 
made  in  the  same  steps  as  described  below 
for  thinnings. 

3.  Thinning  and  computation  of  the  new  mistle- 
toe rating  after  thinning,  if  the  current  rating 
is  below  3.0.  If  thinning  is  possible,  sub- 
routines compute  the  new  stand  density  and 
average  d.b.h.,  as  explained  below.  The 
main  program  then  computes  the  new  aver- 
age stand  height. 

4.  Computation  of  post-thinning  volumes. 

5.  Computation  of  amounts  removed  by  thinning 
and  of  values  describing  conditions  before 
and  after  thinning. 

6.  Printing  of  before-  and  after-thinning  values 
in  the  yield  table. 

7.  Advancement  of  d.b.h.,  height,  stand  density, 
and  mistletoe  rating  one  prediction  period 
and  computation  of  new  volumes.  Mistletoe 
rating  is  computed  as  an  increase  from  a 
previous  value  or  as  a  projection  from  initial 
infection,  depending  upon  whether  or  not 
thinning  has  occurred  since  infection. 

8.  Printing  of  values  appropriate  to  the  stand 
age,  if  thinning  is  not  scheduled. 

9.  Rethinning,  if  thinning  is  scheduled,  by  return 
of  program  control  to  the  operations  described 
in  item  2. 


10.  Repetition  of  operations  described  in  items 
2  to  9,  inclusive,  until  stand  age  reaches 
the  limit  set  by  the  largest  value  of  REGN- 
(I)  on  data  card  type  5. 

Only  one  thinning  in  diseased  stands  will 
be  from  above,  as  simulated  by  SWCUT2.  Sub- 
sequent thinnings  in  diseased  stands  will  in- 
crease average  d.b.h.  and  height,  but  by  lesser 
amounts  than  in  healthy  stands  where  the 
smaller  trees  make  up  a  larger  percentage  of 
those  removed.  This  effect  has  been  observed 
in  subsequent  thinnings  of  actual  stands,  and 
is  simulated  by  SWCUT3. 

Subroutines  SWCUT1  and  SWCUT3  compute 
average  stand  d.b.h.  after  thinnings  that  remove 
many  of  the  smaller  trees  and  thus  increase 
average  stand  diameter  and  height.  Successive 
percentages  of  trees  to  be  retained  (PRET) 
are  tested  until  the  relationship  between  d.b.h., 
basal  area,  and  number  of  trees  is  mathematically 
correct  and  d.b.h.  and  basal  area  agree  with 
the  growing  stock  level  specified  by  THIN  or 
DLEV.  Two  major  loops  are  provided  in  the 
subroutines  because  two  equations  are  needed 
for  estimating  post-thinning  d.b.h.  (DBHE). 

Subroutine  SWCUT2  uses  thinning  stand- 
ards based  on, the  goals  of  sanitation  thinning, 
not  on  THIN  or  DLEV.  The  reduced  infection 
rating  to  be  attained  (DMRT)  is  computed 
by  the  main  program  as  a  function  of  average 
stand  d.b.h.,  as  follows: 
D.b.h. 

(Inches)  Rating 

2  0 

4  0.5 

6  1.0 

8  1.5 
10  2.0 
SWCUT2  then  computes  the  reduction  in  stand 
density  (REDT)  needed  to  attain  this  goal, 
based  on  d.b.h.  and  rating  just  prior  to  thin- 
ning. D.b.h.  after  thinning  (DBHT)  can  then 
be  determined  directly  with  the  same  equations 
as  for  DBHE  in  SWCUT1.  Successive  approxi- 
mations are  unnecessary  because  percentage 
of  trees  to  be  retained  (PRET)  is  known  before 
DBHE  (as  DBHT)  is  computed. 

Replacement  of  several  statements  will 
modify  the  program  for  other  utilization  stand- 
ards, species,  or  regions.  Replacements  needed 
are: 

1.  Statements  for  SQFT,  DBHP,  BREAK,  BUST, 
and  related  computations  that  contain  the 
ratio  of  DLEV  or  THIN  to  80.0,  if  desired. 
This  change  is  needed  if  standards  for  reserve 
stands  in  SWCUT1  and  SWCUT3  will  be 
different  from  those  shown  in  the  tabulation 
of  the  previous  section. 
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2.  Statements  from  TOTO  and  TOTT,  to  make 
cubic  volumes  per  acre  correct  for  the  species 
and  tree  volume  equations  selected. 

3.  Statements  for  FCTR  and  PRODinsubroutine 
SWVOL  that  are  correct  for  the  species, 
tree  volume  equations,  and  utilization  stand- 
ards selected. 

4.  Statements  for  HTSO,  ADDHT,  and  PCT 
so  that  height  growth,  changes  in  height 
due  to  thinning,  and  reductions  in  growth 
caused  by  dwarf  mistletoe  will  be  appro- 
priate for  the  species. 

5.  Statements  for  or  that  include  DMR,  DMRT, 
and  REDT;  to  show  correct  relationship  for 
the  host-parasite  interaction  being  simulated. 

6.  Statement  for  DBHO,  based  on  a  growth  study 
in  healthy  stands  of  the  species  of  interest, 
and  a  statement  for  TEM  to  compute  the 
effect  of  mistletoe  on  diameter  growth. 

7.  Statements  for  DBHE  in  subroutine  SWCUT1 
and  SWCUT3  and  for  DBHT  in  SWCUT2 
that  apply  to  the  species  of  interest. 

8.  Statements  that  describe  periodic  losses  in 
numbers  of  trees  in  both  healthy  (OUT) 
and  diseased  (DIE)  stands. 

9.  Table  headings. 

A  Sample  Problem 

The  following  sample  problem  provides  addi- 
tional description  of  the  data  deck  and  of  the 
output  (appendix  2).  It  can  also  serve  as  a 
test  problem  to  check  accuracy  of  punching 
of  the  source  deck  and  to  test  compatibility 
with  local  equipment. 

Assume  a  forest  composed  of  even-aged 
stands  of  ponderosa  pine  that  differ  in  degree 
of  infection  by  dwarf  mistletoe.  Problems  to 
be  solved  by  the  manager  of  such  a  forest 
include: 

1.  What  growth  can  be  expected  in  healthy 
stands  of  known  site  quality  for  various 
combinations  of  thinning  frequency  and 
intensity? 

2.  How  is  this  growth  affected  by  various  de- 
grees of  dwarf  mistletoe  infection  and  time 
of  initial  sanitation  thinning? 

3.  On  the  basis  of  potential  yields  of  each 
stand,  is  thinning,  replacement,  or  no  treat- 
ment appropriate  for  the  stand  at  this  time? 

4.  Does  each  treatment  decision  appear  appro- 
priate when  impacts  on  other  forest  resources 
are  considered? 


Answers  that  contribute  to  good  land  man- 
agement cannot  be  obtained  unless  all  numerical 
results  can  be  estimated  to  a  useful  degree  of 
accuracy.  Program  SWYLD  provides  such  esti- 
mates for  trees  and  dwarf  mistletoe.  In  the 
sample  problem,  yields  of  healthy  stands  are 
compared  with  those  initially  infected  at  age 
10.  Other  variables  remain  constant  for  both 
tests  except  for  stand  conditions  at  initial  thin- 
ning and  intensity  of  thinning.  No  scheduled 
thinning  will  be  performed  if  the  dwarf  mistle- 
toe rating  is  3.0  or  greater.  Regeneration  will 
be  by  two-cut  shelterwood  with  20  years  be- 
tween removal  and  final  cut.  The  data  deck 
contains  the  following  values: 

NTSTS  -  3,  for  healthy  stands  (test  1),  diseased 
and  thinned  at  age  30  (test  2),  and 
diseased  and  first  thinned  at  age  50 
(test  3). 

COMCU  -  320.0  cubic  feet,  minimum  commercial 
cubic-foot  cut. 

COMBF  -  1500.0  board  feet,  minimum  commer- 
cial board-foot  cut. 

JCYCL  -  20  years. 

MIX       -  3,  or  3  intensities  of  thinning  will  be 

examined  in  each  test. 
AGEO    -  30.0  years  for  two  tests  and  50.0  years 

for  the  third. 
DBHO    -  4.8  inches  for  two  tests,  6.2  inches 

for  the  third. 
DENO    -  950.0  trees  for  two  tests,  575.0  trees 

for  the  third. 
DSTY     -  80.0,  lowest  subsequent  thinning  level 

of  the  3  to  be  examined. 
RINT     -  10.0  years,  prediction  period  of  the 

equations. 
SITE      -  70.0  feet,  base  100  years. 
THIN     -  100.0  level  for  initial  thinning. 
START  -  200.0,  10.0,  and  10.0  years  on  type 

3  data  cards  of  test  1,  test  2,  and 

test  3,  respectively.      Any  number 

larger  than  the  largest  value  of  REGN- 

(I)  could  replace  the  200.0  shown. 
REGN(l)  -  110.0  years,  stand  age  at  time  of 

removal  cut. 
VLLV(l)  -  50.0  percent,    read  as  a  decimal, 

amount  of  previous   residual  basal 

area  to  be  left  as  shelterwood. 
INVL(l)-20  years,  interval  between  removal 

and  final  cuts. 
REGN(2)  -  130.0  years,  stand  age  at  time  of 

final  cut. 

These  values  will  provide  data  for  com- 
parison of  the  differences  in  yields  between 
healthy  and  diseased  stands,  and  between  differ- 
ent types  of  diseased  stands.  Values  must  be 
read  from  data  cards  assembled  in  the  order: 


6 


(1)  type  1,  (2)  type  2,  (3)  type  3  of  test  1, 
(4)  type  4  of  test  1,  (5)  type  5  of  test  1,  (6) 
type  3  of  test  2,  (7)  type  4  of  test  2,  (8)  type 
5  of  test  2,  (9)  type  3  of  test  3,  (10)  type  4 
of  test  3,  and  (11)  type  5  of  test  3.  Additional 
tests  could  be  made  to  examine  the  effect  of 
variations  in  thinning  intensity  or  in  any  other 
control  variable. 

Tables  produced  by  SWYLD  can  be  used 
in  many  ways  to  assist  in  decisionmaking. 
For  many  purposes,  yields  of  healthy  stands 
will  be  desired  so  that  long-range  goals  can 
be  determined.  Yields,  numbers  of  noncom- 
mercial cuts,  number  of  scheduled  cuts  that 
cannot  be  made,  and  size  of  the  average  tree 
are  some  of  the  values  produced.  Money 
yields  and  rates  earned  can  be  computed  if 
necessary  data  on  costs  and  stumpage  values 
are  available.  Stand  ages  at  culmination  of 
mean  annual  increment,  and  rates  earned  can 
help  the  manager  determine  suitable  rotations 
for  his  working  groups. 

A  manager  examining  the  tables  in  appendix 
2,  for  example,  might  reach  the  following  con- 
clusions: 

1.  A  stand  initially  infested  at  age  10  and  then 
left  untreated  for  40  years  will  produce  very 
little  merchantable  volume  by  age  130.  The 
stand  is  already  too  heavily  infested  by 
age  50  for  subsequent  treatment  to  produce 
improvement. 

2.  A  stand  infested  by  dwarf  mistletoe  at  age 
10  but  thinned  at  20-year  intervals  beginning 
at  age  30,  can  produce  only  a  small  volume 
of  useful  wood  products.  Yields,  including 
thinnings,  would  be  much  less  than  those 
from  healthy  stands  with  the  same  site  index 
and  thinned  according  to  the  same  schedule. 
Also,  actual  yields  of  diseased  stands  would 
be  less  than  the  computed  volumes  because 
no  reduction  has  been  made  for  amounts 
of  wood  lost  due  to  pitch  or  distorted  grain. 

3.  In  healthy  stands,  largest  yields  would  be 
produced  with  relatively  light  thinnings,  such 
as  to  level  100.  Comparing  yields  in  thinned 
stands  with  and  without  dwarf  mistletoe, 
diseased  stands  produce  about  a  third  of 
the  merchantable  cubic-  and  board-foot  vol- 
umes of  healthy  stands. 
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APPENDIX  1 
Listing  of  Program  SWYLD 


PROGRAM  SHYLD 
1 ( INPUT, OUTPUT, TAPE5=INPUT,TAPE6=0UTPUT) 

C 

C  TO  COMPUTE  AND  PRINT  YIELD  TABLES  FOR  EVEN-AGED  STANDS  OF  SOUTHWESTERN 
C   PONDEROSA  PINE  WITH  OR  WITHOUT    INFECTION   BY  DWARF  MISTLETOE. 

C 

C  DEFINITIONS  OF  VARIABLES. 


C 

C  ADDHT  =   INCREASE   OR  DECREASE   IN  AVERAGE   STAND  HEIGHT   BY  THINNING. 

C  AGEO  =   INITIAL  AGE   IN  YIELD  TABLE. 

C  BASC   =  BASAL   AREA  CUT   PER  ACRE. 

C  BASO  =  BASAL   AREA  PER   ACRE   BEFORE  THINNING. 

C  BAST  =   BASAL   AREA   PER   ACRE   AFTER  THINNING. 

C  BDFC  =   BOARD   FEET  CUT   PER  ACRE. 

C  BDFO  =  BOARD  FEET   PER   ACRE   BEFORE  THINNING. 

C  BDFT  =   BOARD  FEET  PER  ACRE   AFTER  THINNING. 

C  CFMC  =  MERCHANTABLE  CU.   FT.   CUT  PER  ACRE. 

C  CFMO  =  MERCH.   CU.   FT.   PER  ACRE  BEFORE  THINNING. 

C  CFMT  =  MERCH.   CU.   FT.   PER  ACRE  AFTER  THINNING. 

C  COMBF  =  MINIMUM  COMMERCIAL  CUT,    BOARD  FEET. 

C  COMCU  =  MINIMUM  COMMERCIAL  CUT ,   CU.  FT. 

C  DBHO  =   AVERAGE   STAND  D.B.H.    BEFORE  THINNING. 

C  DBHT  =   AVERAGE  STAND  D.B.H.   AFTER  THINNING. 

C  DENC  =  TREES  CUT   PER  ACRE. 

C  DENO  -  TREES   PER  ACRE   BEFORE  THINNING. 

C  DENT  =  TREES   PER  ACRE   AFTER  THINNING. 

C  DIE  =  TREES  LOST   IN  DISEASED  STANDS   IN   10  YEARS,    IN  PERCENT. 

C  DLEV  =  GROWING   STOCK  LEVEL  FOR  INTERMEDIATE  CUTS   AFTER  THE  FIRST. 

C  OMR  =  DWARF  MISTLETOE   INFECTION  RATING. 

C  DMRT  ■  MAXIMUM  INFECTION  EXPECTED   IN  STANDS   AFTER   THINNING.  GOAL 
C  FOR   STANDS  NOT   ALREADY   BEYOND  DMR  OF  3.0. 

C  DSTY  =   LOWEST  VALUE  OF  DLEV  USED   IN  A  TEST. 

C  HTSO  =  TREE  HEIGHT   BEFORE  THINNING. 

C  HTST  =   TREE  HEIGHT   AFTER  THINNING. 

C  INVLII)   =  NEW  CUTTING  CYCLE  AFTER  REGENERATION  CUT  I. 

C  JCYCL  =   INTERVAL   BETWEEN   INTERMEDIATE  CUTS. 

C  JSBD  =   SUM  OF   BOARD  FEET  FROM  ALL   CUTS  WITH  YIELD  OF  COMBF  OR 
C  LARGER. 

C  JSMC  =  SUM  OF  MERCH.   CU.    FT.   FROM  ALL  CUTS  WITH  YIELD  OF  COMCU 
C  OR  LARGER. 

C  JSTF  =   SUM  OF  TOTAL  CU.   FT.   FROM   ALL  CUTS. 

C  K STEP  =   INDICATOR  WITH  VALUE  OF  ONE  IF  CURRENT  THINNING   IS  FROM 

C  BELOW  AND  TWO  IF  CURRENT  THINNING   IS   FROM  ABOVE. 

C  KTR  =   INDICATOR  WITH  VALUE  GREATER  THAN  ZERO    IF   A  SCHEDULED 

C  THINNING  HAS  BEEN  SKIPPEO  BECAUSE  MISTLETOE   INDEX   IS  TOO  HIGH 

C  OR  BECAUSE   STAND   IS   ALREADY  TO  SPECIFIED  STOCKING. 

C  MIX  =  NUMBER  OF  STOCKING  LEVELS   EXAMINED  PER  TEST. 

C  NFLAG  =   INDICATOR  WITH  VALUE  GREATER  THAN  ZERO   IF   A   THINNING  FROM 

C  ABOVE  HAS  BEEN  MADE  AT  ANY  TIME. 

C  NTSTS  =  NUMBER  OF  TESTS   PER  BATCH. 

C  OUT  =  PERCENT   MORTALITY   IN  HEALTHY  STANDS. 

C  PCT  =  PERIODIC  HEIGHT   INCREASE   IN   INFESTED  STAND,    AS   A  PERCENTAGE 

C  OF   THE  INCREASE   IN  COMPARABLE  HEALTHY  STANDS. 

C  PRET  =   PERCENTAGE   OF  TREES   RETAINED  AFTER  THINNING. 

C  REDT  =  PERCENTAGE  REDUCTION   IN  NUMBER  OF   TREES  WHEN  DMR  IS 

C  REDUCED  TO  DMRT  BY  THINNING. 

C  REGN(I)   =  STAND   AGE  WHEN  REGENERATION  CUT   I  OCCURS. 

C  R I  NT  =  NUMBER  OF   YEARS  FOR  WHICH   A  SINGLE   PROJECTION   IS  MADE. 

C  ROTA  =  FINAL  AGE   IN  YIELD  TABLE. 

C  SITE  =  SITE  INDEX. 

C  START  =   STAND   AGE   AT  TIME  OF    INITIAL  INFECTION. 

C  TEM  =   PERIODIC  D.B.H.    INCREASE   IN   INFESTED  STAND,   AS   A  PERCENTAGE 

C  OF   THE   INCREASE   IN  COMPARABLE   HEALTHY  STANDS. 

C  THIN  =  GROWING  STOCK   LEVEL   FOR   INITIAL  THINNING. 

C  TOTC   =  TOTAL  CUBIC  FEET  CUT   PER  ACRE. 

C  TOTO  =  TOTAL  CUBIC  FEET  PER  ACRE   BEFORE  THINNING. 

C  TOTT   =  TOTAL  CUBIC  FEET  PER   ACRE  AFTER  THINNING. 

C  VLLV(I)  =  PERCENT  OF  PREVIOUS  DLEV  TO  BE  LEFT  AT  REGNII),  ENTERED 
C  AS  A  DECIMAL. 

C 

COMMON  BA, BAST,  DBHO,  DBHT, DENO, DMR, DMRT, FCTR, PRET, PROD, RE  ST, VDM 
DIMENSION  VAR [ 1 1 ) , TEMH ( 2 ) , INVL I  3 ) , REGN 13) , VLLV ( 3 ) 

C 

DO  1  J=l,ll 


1   VAR(J)   =  0.0 

C 

C  RE  AO   NUMBER   OF  TESTS   PER   BATCH  FROM  CARD  TYPE  ONE. 
C 

READ    (5,5)  NTSTS 
5  FORMAT  (I*) 

IFINTSTS   .LE.   0)    GO  TO  '.TO 

C 

C  READ  MINIMUM  COMMERCIAL  CUTS  FOR  COMPUTATION  OF  COLUMN  TOTALS  FROM 
C  CARD  TYPE  TWO. 

C 

READ   (5,10)   COMCU, COMBF 
10  FORMAT  (10F8.3) 
VAR I  9 )    =  COMBF 
VAR(IO)    =  COMCU 

C 

C  EXECUTE   PROGRAM  ONCE   FOR  EACH  SET  OF   INITIAL  VALUES  OF  INTEREST. 

C 

DO  460   1  =  1, NTSTS 
JTEM  =  0 

C 

C  READ  CUTTING   INTERVAL   AND  LEVELS  PER  TEST  FROM  CARD  TYPE  THREE. 

C 

READ    (5,151   JCYCL, MIX 
15  FORMAT  (21*) 

IFIJCYCL   .LE.   0   .OR.   MIX   .LE.   0)    GO  TO  470 
JTEM  =  JCYCL 


C 

C  READ   INITIAL   STAND  VALUES   FROM  CARD  TYPE  FOUR. 

C 

READ   (5,10)    AGEO, DBHO, DENO, DSTY, RINT, SITE, THIN,  START 


VAR ( 1 1 

AGEO 

VAR ( 2 ) 

DBHO 

VAR ( 3 ) 

DENO 

VARI4) 

DSTY 

VAR 15) 

RINT 

VAR ( 6 ) 

SITE 

VAR ( 7 1 

THIN 

VAR 1 8 ) 

START 

c 

C  READ  SILVICULTURAL  CONTROLS  FROM  CARD  TYPE  FIVE. 
C 

READ    (5, 10) REGNI 1 ) ,VLLV( 1 ) , INVLI 1 ) ,REGN( 2 I.VLLVI 2 ) , INVL ( 2 ) ,REGN( 3 ) 
VAR(ll)   =  REGNII) 
DO  20  L=l,ll 

IF(VARIL)    .LE.   0.0)   GO  TO  470 
20  CONTINUE 
DLEV  =  0.0 
DO  35  NA=1,3 
L  =  4  -  NA 

IFIREGN(L)    . EQ.   0.0)   GO  TO  35 
ROTA  =  REGN ( L I 
GO  TO  40 
35  CONTINUE 

C 

C   PROVIDE  FOR   SEVERAL  GROWING  STOCK  LEVELS  PER  TEST. 

C 

40  DO  460  M=1,MIX 
A  —  H 

ADDHT  =  0.0 
BDFO  =  0.0 
BDFT  =  0.0 
CFMO  =  0.0 
CFMT  =  0.0 
DMR  =  0.0 
DMRT  =  0.0 
HTCUM  =  0.0 
JSBD  =  0 
JSMC  =  0 
JSTF   =  0 
KSTEP  =  1 
KTR  =  0 
NFLAG  =  0 
TIME  =  0.0 

DLEV  =   (DSTY   ♦   (A  *   10.0))   -  10.0 
BASO  =  DENO  *  0.0054542  *  DBHO  *  DBHO 

C 

C  COMPUTE   CURRENT  DWARF   MISTLETOE  RATING,   UNTHINNED  STANDS. 

C 

TIME  =  AGEO  -  START 

I  F ( T I  ME   .LE.   0.0)   GO  TO  45 

DMR  =  0.06533  *  TIME  *  0.03616  *  SITE  -  1.4466 
IFIDMR   .LT.   0.0)   DMR  =  0.0 
I F I DMR   .GT.   6.0)   DMR  =  6.0 

C 

C  OBTAIN  AVERAGE  HEIGHT  AND  VOLUMES   PER  ACRE. 
C 

45   I F I AGEO   .GT.   55.0)   GO  TO  50 

HTSO  =  0.01441   *  AGEO  *  SITE  -  0.12162  *   AGEO  -  1.50953 
GO  TO  55 

50  HTSO  =  0.59947  -  61.5019   /   AGEO  +  0.80522   «  AL0G10ISITEI    ♦  20.5252 
18  *  AL0G101SITE)    /  AGEO 

HTSO  =   10.0  «*  HTSO 
55  PCT  =   1.073  -  0.0367  «  DMR 

IFIPCT   .GT.   1.01   PCT  =  1.0 

HTSO  =  HTSO  *  PCT 

C 

C  COMPUTE  TOTAL  CU.   FT.   AND  CONVFRT  TO  OTHER  UNITS. 

C 

D2H  =  DBHO  *  DBHO  »  HTSO 
IFID2H  .GT.   5000.0)   GO  TO  60 

TOTO  =    (0.53313   ♦  0.00033  *  BASO   +  0.00179  *  D2H )   *  DENO 
GO  TO  65 

60  TOTO  =   (0.00237  »  BASO  ♦   0.00211   «  D2H  -    1.093561    *  DENO 
65   I F ( DBHO  • LT.   5.0)   GO  TO  70 

VDM  =  DBHO 

BA  =  BASO 

CALL  SWVOL 

8DF0  =   TOTO  *  PROD 

CFMO  =  TOTO  *  FCTR 
70  REST  =  THIN 

C 

C  ENTER  LOOP  FOR  REMAINING  COMPUTATIONS   AND  PRINTOUT. 

C 

DO  355  K=l,100 

C 

C  CHANGE   STANDARDS   IF   A  REGENERATION  CUT    IS  DUE. 

C 

90   I F ( AGEO   -GE.   ROTA)   GO  TO  165 

I F ( AGE 0  .LT.   REGNII))   GO  TO  108 

I F ( AGEO   -NE.   REGN I  1 ) )   GO  TO  95 

DLEV  =  DLEV  *  VLLV(l) 

REST  =  OLEV 

JCYCL   =  INVLII) 

GO  TO  105 
95   I F 1 AGEO  .NE.   REGN 12))   GO  TO  100 

DLEV  =   DLEV  •  VLLV I  2 ) 

REST  =  DLEV 
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JCYCL   =    I NVL ( 2 ) 
GO  TO  105 
100   IFIAGEO   .NE.   REGNO))    GO   TO  105 
DLEV  =  OLEV  *  VLLVI3) 
REST  =  OLEV 
JCYCL  =  INVLI3) 

INCREASE   D.B.H.   BY  THINNING  AND  COMPUTE  POST- THINNING  VALUES. 


REGN I  1 )  .OR.  AGFO  .EO.  REGNI2J)  GO  TO  123 
3.0)    GO  TO  110 


.0)  GO  TO  120 
0)  GO  TO  115 
DBHO  -  0.50 


0.0) 
DMR  ) 


OMR  T  =  0.0 
GO  TO  115 


105   IFIAGEO  -EQ 

108  I F ( OMR  .LT. 
BAST  =  BASO 
OBHT  =  DBHO 
DMRT  =  OMR 
HTST  =  HTSO 
KTR  =  1 
GO  TO  150 

110   I F ( DMR  .EO. 
I F ( NFLAG   . GT 
DMRT  =  0.25 
IFIDMRT  .LT. 
I F ( DMRT  .GE. 
CALL  SWCUT2 
NFLAG  =  1 
KSTEP  =  2 
GO  TO  125 

115  CALL  SWCUT3 
KSTEP  =  1 
DMRT  =  OMR 
GO  TO  125 

120  DMRT  =  DMR 
CALL  SWCUT1 
KSTEP  =  I 
GO  TO  125 

123  CALL  SWCUT1 
KSTEP  =  1 
DMRT   =  DMR 
IFIDMRT  .GT 

125  I F ( BAST  .LT 
BAST  =  BASO 
DBHT  =  DBHO 
DMRT  -  OMR 
HTST  =  HTSO 
KTR  =  1 
GO  TO  150 


COMPUTE   HEIGHT  AND  VOLUMES   AFTER  THINNING. 


*   0.0279   *  PRET 


0.0279  *   PRE  T  -  2. 
6.0)    DMRT  =  6.0 
BASO)    GO  TO  130 


130  GO  TO   (135, 1*0), KSTEP 

135  AODHT  =  7.6*833  -  3.82286  *   AL0G10 1  PRET ) 
GO  TO  1*5 

1*0  ADDHT  =  3.*177  «  ALOG 10 1  PRE  T )  -  8.68863  /  BAST  -  7.22001 
1*5  HTCUM  =  HTCUM  ♦  ADDHT 

HTST  =  HTSO  ♦  ADDHT 
150   JDENT  =   (BAST  /    (0.005*5*2   *  DBHT  »  DBHT))   +  0.5 

DENT  =  JDENT 

BAST  =  0.005*5*2   *  DBHT   *  DBHT  »  DENT 
02H  =  DBHT  *  DBHT  »  HTST 
IFID2H   .GT.   5000.0)   GO  TO  155 

TOTT  -  (0.53313  ♦  0.00033  *  BAST  ♦  0.00179  *  D2H)  *  DENT 
GO  TO  160 

155  TOTT  =  (0.00237  «  BAST  ♦  0.00211  *  D2H  -  1.093561  *  DENT 
CONVERT  TOTAL  CU.    FT.   TO  OTHER  UNITS. 


160   I F ( DBHT   .LT.   5.0)   GO  TO  165 
VOM  =  DBHT 
BA  =  BAST 
CALL  SWVOL 
BDFT  =   TOTT  *  PROD 
CFMT  =  TOTT  *  FCTR 

CHANGE  MODE   AND  ROUND  OFF   FOR  PRINTING. 


165  JAGEO 
JSITE 
JOENO 
JHTSO 
JTOTO 
JTOTO 
JBASO 
JCFMO 
JCFMO 
JBDFO 
JBDFO 
JHTST 
J  TOTT 
JTOTT 
JCFMT 
JCFMT 
I F ( JCFMT 
JBDFT  = 
JBOFT 
IF ( JBDFT 
JBAST  = 
JDENC  = 
JBASC  = 
JTOTC  = 
JCFMC  = 
IF( JCFMC 
JBDFC  = 
I F ( JBDFC 


AGEO 
SITE 
DENO  ^ 
HTSO  < 
ITOTO 
JTOTO 
BASO  < 
ICFMO 
JCFMO 
(  BDFO 
JBDFO 
HTST  H 
(  TOTT 
JTOTT 
(CFMT 
JCFMT 
•  GT. 
(BDFT 
JBOFT 
GT. 
BAST  t 
JDENO 
JBASO 
JTOTO 
JCFMO 
.LE. 
JBDFO 
.LE. 


0.5 
0.5 

*  0.1 )   +  0.5 

*  10 
0.5 

*  0.1 )   ♦  0.5 
«  10 

*  0.01 )    +  0.5 

*  100 
0.5 

*  0.1)    +  0.5 

*  10 

*  0.1)   +  0.5 

*  10 

JCFMO)    JCFMO  =  JCFMT 

*  0.01)   +  0.5 

*  100 

JBDFO)  JBDFO  =  JBDFT 
0.5 

-  JDENT 

-  JBAST 

-  JTOTT 

-  JCFMT 

0)    JCFMC  =  0 

-  JBDFT 

0)    JBDFC  =  0 


SUM  PERIODIC  CUTS   FOR  LAST  LINE  OF  YIELD  TABLE. 

IFIAGEO   -GE.   ROTA)   GO  TO  190 
JSTF  =  JSTF   +  JTOTC 
CFMC   =  JCFMC 

IFICFMC    .LT.   COMCU)   GO  TO  170 
JSMC  =   JSMC  +  JCFMC 
170  BOFC   =  JBDFC 

IFIBOFC   .LT.   COMBF)   GO  TO  190 
JSBD  =   JSBD  +  JBDFC 


WRITE  HEADINGS  FOR  YIELD  TABLE. 

190   IFIK   .GE.   2)   GO  TO  220 

WRITE    16.195)    JSITE. THIN, DLEV 
195  FORMAT    ( 1H1 , /// .39X.53HYI ELDS   PER   ACRE  OF   EVEN-AGED   STANDS  OF  POND 
1ER0SA  PINE/1H   ,57X,11HSITE   INDEX   ,13/lH   , 38X , 29HTH I NN I NG  INTENSITY 
2-   INITIAL-   ,F5.0,2X,12HSUBSE0UENT-  ,F5.0I 
WRITE  (6,200) 

200  FORMAT    I 1H0 , 25X , 38HENT 1  RE   STAND  BEFORE   AND  AFTER  THI NN I NG , 23X ,26HP 
1ERIDDIC    INTERMEDIATE  CUTS) 
WRITE  (6,205) 

205  FORMAT  ( 1H0, 9X , 5HST AND, 10 X , 5HBAS AL , 3X , 7HAVER AGE , 2X , 7H AVER AGE , 3X , 5H 
1T0TAL,3X,9HMERCHANT-,3X,9HSAWTIMBER,9X,5HBASAL,*X, 5HT0TAL , 3  X , 9HMER 
2CHANT-,3X,9HSAWTIMBER) 


WRITE  (6,210) 

210  FORMAT   ( 1H   , 10X , 3HAGE , * X , 5HTREE S , 3X , *HARE A, *X , 6HD . B . H . , 3X , 6HHE I GHT 
1,2X,6H VOLUME, 2X.11H ABLE  VOLUME, *X , 6HV0LUM E, 3X , 5HTR EE S , 3X , *HA« EA , 3 X 
2.6HV0LUME.2X, 11HA8LE  VOLUME , *X, 6HV0LUME I 
WRITE  (6,215) 

215  FORMAT  (  IH  ,  8  X  ,  7H I  YE  ARS  )  ,  3X  ,  3HN0.  ,  3X  ,  6HSQ  .  F  T.  ,  *X ,  3H I  \| .  ,  6X ,  3HF  T.  ,  4  X 
I , 6HCU.FT. .5X.6HCU.FT. ,6X,6HBD.FT. , *X, 3HN0. , 3X , 6HS0.FT . , 2X , 6HCU. FT . 
2,5X,6HCU.FT. ,6X,6HBD.FT. ) 

WRITE  TABLE   ENTRIES   OF  DIAMETER,   VOLUMES,  ETC. 

220  WRITE    (6,225)    J AGEO, JDENO, JBASO, DBHO, JHTSO, JTOTO, JCFMO, JBDFO 
225  FORMAT    ( I  HO , 9X, I *, *X, I  5, 2X , I*, 5X , F5 . 1 , 5X , 1 3 , *X , I  5 , 6X , I  5 , 6X , I  6 ) 
IFIAGEO   .GE.   ROTA)   GO   TO  370 

WRITE    (6 ,230  I    J AGEO, JDENT , J  BAST , DBHT , JHTST , J TOTT , JCFMT , JCDF T , JDENC 
1 , JBASC, JTOTC, JCFMC, JBDFC 
230  FORMAT   ( 1H   , 9 X, I  * , *X , 1 5 , 2X, I*, 5X , F5. 1 , 5X , I  3 ,*X , I  5 , 6X , I  5 , 6X , I b ,*X , I 
15,3X,I3,5X,I*,6X,I*,RX,I5) 


COMPUTE   VALUES  FOR  EACH  PERIOD.   THIN  AS  SPECIFIED. 

IRI NT   =   R I  NT 

IK  =  JCYCL   /  IRINT 

DO  3*5  L=1,1K 

AGEO  =  AGEO  +  RI NT 

IFIAGEO  .GT.   ROTA )   GO  TO  370 

COMPUTE  CURRENT  DWARF  MISTLETOE  RATING. 

TIME   =   AGEO  -  START 

I F I DMR   .GT.   0.0)   GO  TO  250 

I F I T I  ME   .LE.   0.0)   GO  TO  265 

DMR  =  0.06533  *   TIME  ♦  0.03616  *  SITE  -  l.**86 
GO  TO  260 
250   IFIDMRT   .LE.    1.0)   GO  TO  255 
DMR  =  OMR  ♦  0.065   *  RINT 
GO  TO  260 

255  DMR  =  DMRT  ♦   (0.03  ♦  0.038  «  DMRT)    *  RINT 

IF(L   -LE.   2)   GO  TO  260 

DMR  =  DMR  ♦  0.065  *  RINT 
260   I F 1 DMR   .LT.   0.01    OMR  =  0.0 

IFIDMR   .GT.   6.0)   OMR  =  6.0 

COMPUTE   NEW  D.B.H.   BEFORE   THINNING  AND  ROUND  OFF   TO   0.1  INCH. 

265  DBHO  =   1.0097  *  DBHT  +  0.0096  *  S I TE- ( 1 . 5766* AL0G10I B AST ) ) +3. 3021 
IFIDMRT   .LE.   3.5)   GO  TO  270 

TEM  =    (DBHO  -  DBHT )   *   (1.0  -   10.056  *  DMRT  -  0.1971) 
DBHO  =  OBHT  +  TEM 
270   I DBHO  =  DBHO  *  10.0   t  0.5 
DBHO  =   I DBHO 
OBHO  =  DBHO  *  0.1 
DIE  =  0.0 

IFIDMRT   .LT.    1.0)   GO  TO  273 

DIE  =  20.66*69  +  *.*227l   *  DMRT  -  0.36374  *   SITE  +   3.87613  *  ALOG 1 
10 ( DENT ) 
DIE  =  DIE   *  0.01 
IFIDIE   .LT.   0.0)    DIE  =  0.0 
273  OUT  =  0.0 

I F  ( DBHT   .GE.    10.0)   GO  TO  275 

OUT  =  0.002*7  +   0.0012*   *  DBHT  +   0.00028  *   DBHT   *  DBHT  +  0.0000052 
11   *   BAST   *  BAST  -  0.0000905  *  DBHT  *  BAST 
IFIOUT   .LT.   0.0)   OUT  =  0.0 
275   IFIDIE   -LT.   OUT )    DIE   =  OUT 

JDENO  =    I  DENT  *   (1.0  -  016)1    +  0.5 
DENO  =  JDENO 

BASO  =  DENO  *   (0.005*5*2   *  DBHO   *  DBHO) 


OBTAIN  AVERAGE   HEIGHT   AND  VOLUMES   PER  ACRE. 

00  300  J=l,2 
LUB  =  J 

GO  TO   1280,285) , LUB 
280  YARS   =  AGEO 

GO  TO  290 
285   YARS  =   AGEO  -  RINT 
290   I F I YARS   .GT.   55.0)   GO  TO  295 

TEMHIJI   =  0.01**1   *  YARS   *   SITE  -  0.12162  *  YARS 

GO  TO  300 

295  TEMHU)    =   0.599*7  -  61.5019   /  YARS 
12528  *  ALOGIO(SITE)    /  YARS 

TEMHU)    =   10.0  *»  TEMHU) 
300  CONTINUE 

PCT   =   1.0  -  0.0002   »  DMRT  *  OHRT  *  DMRT 

CHNG  =    ITEMH(l)   -  TEMHI2))    *  PCT 

HTSO  =  HTST  +  CHNG 

COMPUTE   TOTAL   CU.   FT.   AND  CONVERT  TO  OTHER  UNITS. 

02H  =   DBHO  *  DBHO  *  HTSO 
IFID2H   .GT.   5000.0)   GO  TO  305 

TOTO  =    (0.53313   ♦  0.00033   *  BASO  +  0.00179  *  D2H) 

GO  TO  310 
305  TOTO  =   (0.00237  * 
310   I F ( DBHO   .LT.  5.0) 

VDM  =  DBHO 

BA  =  BASO 

CALL  SWVOL 

BDFO  =  TOTO  *  PROD 

CFMO  =  TOTO  *  FCTR 


AL0G101 SITE ) 


BASO  ♦  0.00211 
GO  TO  315 


1.09356)    *  DENO 


TEST    IF   REGENERATION  CUT   IS  OUE. 

315  00  320  KU=1,3 

IFIAGEO  .EO.   REGN(KUl)   GO  TO  90 
320  CONTINUE 

CHANGE   MODE   AND  ROUND  OFF   FOR  PRINTING. 

IF(L   .EO.    IK)    GO  TO  350 

KOENO  =  DENO  +  0.5 

KAGEO  =  AGEO 

KHTSO  =  HTSO  +  0.5 

KBASU  =   BASO  +  0.5 

KTOTO  =    (TOTO  *   0.1)    ♦  0.5 

KTOTO  =  KTOTO  »  10 

KCFMO  =    ICFMO  *  0.1)    *  0.5 

KCFMO  =  KCFMO  *  10 

KBDFO  =    (BDFO  *  0.011    ♦  0.5 

K8DF0  =   KBDFO  «  100 


WRITE   VALUES   FOR  THE   PERIOO   IF   THINNING   IS  NOT  OUE. 

WRITE    (6,225)   K  AGEO, KOENO, KB  AS  0, DBHO, KHTSO, KTOTO, KCF  Mr),  KBDFO 
DBHT  =  DBHO 
BAST  =  BASO 
DENT  =  DENO 
DMRT  =  DMR 
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HTST  =  HTSO 
345  CONTINUE 


PREPARE   TO  START   LOOP  AGAIN  FOR  NEXT  THINNING. 


350  REST  =  DLEV 
355  CONTINUE 


ADD  FINAL  CUTS  TO  TOTAL  YIELDS   AND  WRITE   TOTAL  YIELDS. 
JTOTO 


COMCU)  GO  TO  375 
►  JCFHO 


370  JSTF  =   JSTF  » 
CFHO  =  JCFHO 
IFICFMO  • LT- 
JSMC  =  JSMC 
375   BDFO  =  JBDFO 

IFIBDFO  .LT.   COMBF )   GO  TO  380 
JSBD  =   JSBD  ♦  JBOFO 
380  WRITE    16,385)    JSTF  t  JSMC , J  SBD 

385  FORMAT    ( 1H0 , / , 67X , 1 2HT0TAL   YI ELOS , 20X , 14 , 6X , 14, 8X , I  5 ) 

WRITE    16,3901   COMCU , COMBF 
390  FORMAT   (1H0»//»11X»44HMINIMUM  CUTS  FOR   INCLUSION   IN  TOTAL   YIELDS — 
1,F6.0,15H  CUBIC  FEET  AND,F7.0,11H   BOARD  FEET) 

I F { START   .GE.   ROTA)   GO  TO  405 

WRITE   (6,400)    START, OMR, ROT A 
400  FORMAT    { 1H0, 10X.41HDWARF   MISTLETOE   INFECTION   STARTED  AT  AGE  ,F4.0, 
116H  AND  RATING  WAS   ,F5.1,8H  AT   AGE  ,F4.0) 

GO  TO  415 
405  WRITE   (6,410)  ROTA 

410  FORMAT   ( 1H0 , 1  OX , 63HDW ARF   MISTLETOE   INFECTION  DID  NOT  OCCUR  DURING 

1THE  ROTATION  OF   ,F4.0,7H  YEARS.) 
415   IFIKTR   .EO.   0)   GO  TO  425 
WRITE  (6,420) 

420  FORMAT    I 1H0 , 1  OX , 52HNOTE  THAT  NOT  ALL   SCHEDUL  EO  THINNINGS  WERE  POSS 

LIBLE.  ) 
425  WRITE  (6,430) 

430  FORMAT    1 1H0 , 10X , 68HMERCH.   CU.   FT.   -  TREES  6.0   INCHES  D.B.H.   AND  LA 
1RGER  TO  4.0-INCH   TOP. ) 
WRITE  (6,435) 

435   FORMAT   ( 1H0 , 10X , 68HBD.   FT.   -  TREES   10.0   INCHES  D.B.H.   AND  LARGER  T 
10  VARIABLE  TOP  LIMIT. ) 

PREPARE   FOR  NEXT  TABLE  OF  THE  TEST. 


AGEO  =  VAR(l) 
DBHO  =  VAR12) 
DENO  =  VAR ( 3 ) 
JCYCL  =  JTEM 
460  CONTINUE 
GO  TO  500 

PROGRAM  CONTROL  GOES  HERE   IF  ANY  UNWANTED  ZEROS   IN  DATA  DECK. 
470  WRITE  (6,480) 

480  FORMAT   ( 1H1 , /// , 10X , 64HEX ECUT ION  STOPPED  BECAUSE  OF  NEGATIVE  OR  ZE 

IRQ  ITEM  ON  DATA  CARD.) 
500  CALL  EXIT 

END 


GO  TO  11 
5  PDBHE  =  0.49401   +  0.71890  » 
1   +  0.12616  «   ALOGIO ( DBHO }  « 
DBHE  =   10.0  «»  PDBHE 
11    1 DBHE  =  DBHE     *  10.0  ♦  0.5 
DBHE  =  IDBHE 
DBHE  =  DBHE  *  0.1 
DENE  =  DENO  *  PRET  *  0.01 
NOENE   =  DENE   +  0.5 
DENE  =  NDENE 
BASE  =  0.0054542   *  DBHE 
NBASE  =  BASE   *   10.0  ♦  0.5 
BASE  =  NBASE 
BASE  =  BASE  *  0.1 
TMPY  =  0.0054542  »  DBHE  * 
TEM  =  BASE  -  REST 
IFITEH  • LE.   TMPY )   GO  TO  70 
I F I TEM   .LT.   4.0  I   GO  TO  20 
PRET   =   PRET  -  1.0 
GO  TO  21 


ALOGIO ( DBHO )  - 
ALOGIO(PRET) 


OBHE  *  DENE 


0.22530  *  ALOGIO ( PRET ) 


20  PRET  =  PRET 

21  CONTINUE 
GO  TO  70 


0.3 


C  COMPUTE   D.B.H.   IF   BASAL  AREA   INCREASES  WITH  D.B.H. 
C 

30  PRET  =  40.0 

IFIOBHO   .GT.   7.0)    PRET  =  70.0 
DO  65  J=l,100 

I F [ PRET   .GE.   50.0)   GO  TO  40 

POBHE   =   0.49401   *  0.71890  *  ALOGIO(DBHO)   -  0.22530  «  ALOGIO! PRET ) 
1   +  0.12616  *  ALOGIO 1 DBHO)    *  ALOGIO ( PRET ) 
DBHE  =   10.0  **  PDBHE 
GO  TO  45 

40  DBHE   =  0.73365   +   1.0200B  *  DBHO  -  0.01107  *   (PRET  -   50.01   -  0.0001 

14  *    ( PRET  -   50.0)   *   (PRET  -  50.0) 
45   IDBHE  =  D8HE   *   10.0  *  0.5 

DBHE   =  IDBHE 

DBHE  =   DBHE  *  0.1 

DENE  =  DENO  *   (PRET  *  0.01) 

NDENE   =  DENE  ♦  0.5 

DENE  =  NDENE 

BASE  =  0.0054542   *   DBHE  *  DBHE  *  DENE 

NBASE  =  BASE  *   10.0  ♦  0.5 

BASE  =  NBASE 

BASE  =  BASE  *  0.1 

BREAK  =  49.9  *  REST  /  80.0 

I F ( BASE   .GT.    BREAK)   GO  TO  50 

DBHP  =   (80.0   /  REST)   *   (0.08682  »  BASE)   ♦  0.94636 
GO  TO  52 

50  BUST  =  66.2  *    (REST  /  80.0) 
1 F ( BASE   .GT.   BUST)   GO  TO  51 

DBHP   =    180.0  /  REST)    «    (0.10938  *  BASE)   -  0.17858 
GO  TO  52 

51  TMPY  =  BASE  *   (80.0  /  REST) 
TEM   =   TMPY  *  TMPY 

DBHP  =   19.04740  «   TMPY  -  0.26673   *  TEM  *  0.0012539  *   TEM  *  TVPY 
I  -  448.76833 
I F ( TMPY   .GT.   80.0)   DBHP  =   DBHO  ♦  0.8 

52  I DBHP  =  DBHP  »   10.0  +  0.5 
DBHP  =   I DBHP 

DBHP  =  DBHP  «  0.1 

I F ( DBHP  -  DBHE)  60,70,61 

60  PRET  =  PRET  »  1.02 
GO  TO  65 

61  PRET  =   PRFT  «  0.98 
65  CONTINUE 

70  DBHT  =  DBHE 


SUBROUTINE  SWVOL 

TO  CONVERT  TOTAL  CU.   FT.   TO  HERCH.   CU.   FT.   AND  TO  BD.  FT. 

COMMON  B A, BAST, DBHO, DBHT, OE NO, DMR , DMRT , FCTR , PRET, PROD, REST, VDM 

FCTR  =  0.0 
PROD  =  0.0 

IFIVDM  .LT.   5.01   GO  TO  10 

OBTAIN  CONVERSION  FACTORS  FOR  MERCH.  CU.  FT.  -  VOLUMES  TO  4.0-INCH  TOP 
IN  TREES  6.0  INCHES  D.B.H.   AND  LARGER. 

IFIVDM   .GT.   6.5)   GO  TO  2 
FCTR  =  0.25222  «  VDM  -  1.01119 
GO  TO  6 
2   IFIVDM   .GT.    10.0)   GO  TO  4 

FCTR  =   3.02485  -  0.09957   *  VDM  -   11.35814  /  VDM 
GO  TO  6 

4   FCTR   =   1.03936  -   1.41034   /  VDM 
6   IFIVDM  .LT.   8.0)   GO  TO  10 


OBTAIN  CONVERSION  FACTORS  FOR  BD.  FT. 
TREES   10.0  INCHES  D.B.H.    AND  LARGER. 


VOLUMES   TO  VARIABLE  TOP  IN 


IFIVOM   .GT.   11.5)   GO  TO  8 

PROD  =  0.0028  *  BA  +  0.04355  *  VDM  *  VDM 
GO  TO  10 

8  PROD  =  0.83943  ♦  0.20531   *  VDM 
10  RETURN 
END 


SUBROUTINE  SWCUT1 

C 

C   TO  ESTIMATE   INCREASE   IN  AVERAGE  D.B.H.   DUE   TO  THINNING  SOUTHWESTERN 

C   PONDEROSA  PINE   IF   DWARF   MISTLETOE  RATING  EQUALS  ZERO. 

C 

COMMON  BA, BAST, DBHO, DBHT, DENO, DMR, DMRT, FCTR, PRET, PROD, REST, VDM 

C 

I F I DBHO  . LT.   9.5)   GO  TO  30 

C 

C  COMPUTE   D.B.H.    IF   DBHO   IS  LARGE   ENOUGH  FOR   BASAL   AREA   TO  REMAIN  CONSTANT. 

C 

PRET  =  100.0 

DO  21  KJ=l,lOO 

I F ( PRE T   .LT.    50.0)   GO  TO  5 

DBHE  =  0.73365   ♦  1.02008   *  DBHO  -   0.01107  »    ( PRET  -   50.0)   -  0.0001 
14  *   (PRET  -  50.0)    »   (PRET  -  50.0) 


C  COMPUTE   POST-THINNING  BASAL  AREA. 
C 

I F [ DBHT  .GT.   5.0)   GO  TO  75 

SOFT   -   11.58495   *  DBHT  -  11.09724 

GO  TO  76 

75  I F ( DBHT  . GE.    10.01    GO  TO  77 
TEM  =  DBHT  *  DBHT 

SOFT  =   7.76226  *  DBHT  *0. 85289  *  TEM 

76  BAST  =    (REST   /  80.0)    »  SOFT 
GO  TO  80 

77  BAST  =  REST 
80  RETURN 

END 


TE"  *  DBHT-3 . 45624 


SUBROUTINE  SWCUT2 

TO  ESTIMATE  INCREASE  IN  AVERAGE  D.B.H.  DUE  TO  THINNING  SOUTHWESTERN 
PONDEROSA  PINE   IF   DWARF  MISTLETOE  RATING  DETERMINES  THE  STANDARDS. 

COMMON  BA, BAST, DBHO, DBHT, DENO, DMR, DMRT, FCTR, PRET, PROD, REST, VDM 

COMPUTE   STAND  DENSITY  AFTER   A  THINNING  THAT  REOUCES  THE  INDEX. 


I F I DMR   .LT.   2.0)   GO  TO  5 

KEDT  =  77.5  -  8.5   *  DBHO  +   10.0  *  OMR 

GO  TO  10 

5  REDT  -   15.5  -   8.5   *  DBHO  +  41.0  *  DMR 
10  PRET  =   100.0  -  REOT 

DENT  =  DENO  *   (PRET  *  0.01) 
I  DENT   =  DENT  +  0.5 
DENT  =  I DENT 

COMPUTE   D.B.H.   AFTER  THINNING  TO  DESIRED  DENSITY. 
I F ( PRET   .LT.   50.0)   GO  TO  15 

DBHT  =  0.98543  *  DBHO  ♦  0.00807   *    (PRET  -  50.0)   ♦   0.00025  *  (PRET 
1   -  50.0)   *   (PRET  -  50.0)   -  0.91172 
GO  TO  20 

15  DBHT  -  0.51618  *  AL0G1 0 ( PRET )    t   1.69219   »   ALOGIO ( DRHD )   -  0.34768  * 
1AL0G10IPRFT)    *  ALOGIO ( DBHO )   -  1.03421 

DBHT  =   10.0  «*  DBHT 
20   I DBHT  =  DBHT  »   10.0  *  0.5 

DBHT  =   I DBHT 

DBHT  =  DBHT  *  0.1 

BAST  =   0.0054542   «   DBHT  *  DBHT   *  DENT 

RETURN 

END 
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SUBROUTINE  SWCUT3 

C 

C  TO  ESTIMATE    INCREASE    [ N  AVERAGE   D.B.H.   DUE   TO  THINNING  FROM  BELOW  IF 
C   DWARF  MISTLETOE  RATING   IS   GREATER  THAN  ZERO. 

C 

COMMON  BA, BAST, DBHO, DBHT, DENO, DMR.DMRT.FCTR, PR ET.PROO, RE  ST, VDM 
IFIDBHO   .LT.   9.5)   GO  TO  30 

C 

C  COMPUTE   D.B.H.    IF   DBHO   IS   LARGE   ENOUGH  FOR   BASAL  AREA  TO  REMAIN  CONSTANT. 

C 

PRFT  =  100.0 

DO  21  KJ=1,100 

I F ( PRE T  .LT.   50.0)   GO  TO  5 

DBHE   =  0.73365  ♦   1.02008   *  DBHO  -  0.01107  *    (PRET  -   50.0)   -  0.0001 
14  «    t  PRET  -  50.01    »   (PRET  -  SO.O) 
GO  TO  11 

5   PDBHE  =  0.49401   ♦  0.71890  *  AL0G10 1 DBHO )   -  0.22530   *   AL0G1 0( PRET ) 
1   ♦  0.12616  *   AL0G10ID8H0)    »  ALOGIOIPRETI 
DBHE   =   10.0  **  PDBHE 
11  TEM  =  DBHE  -  DBHO 

DBHE   =   DBHO  +   TEM  *  0.5 

I DBHE   -  DBHE   *   10.0  +  0.5 

DBHE   -    I DBHE 

DBHE  =  DBHE  *  0.1 

DENE  =  DENO  *  PRET  *  0.01 

NOENE  =  DENE  +  0.5 

DENE  =  NDENE 

BASE  =   0.0054542   *  DBHE   *  DBHE  *  DENE 

NBASE  =   BASE   *   10.0  ♦  0.5 

BASE  =  NBASE 

BASE   =  BASE  *  0.1 

TMPY  =  0.0054542   *  DBHE  *  DBHE 

TEH  =  BASE  -  REST 

I F ( TEM  .LE.   TMPY)   GO  TO  70 

IF  I TEM   . LT.   4.0)    GO  TO  20 

PRET  =  PRET  -  1.0 

GO  TO  21 

20  PRET  =   PRET  -  0.3 

21  CONTINUE 
GO  TO  70 

C 

C  COMPUTE  D.B.H.    IF   BASAL   AREA   INCREASES  WITH  D.B.H. 

C 

30  PRET  =  40.0 

IFIDBHO   .GT.    7.0)   PRET   =  70.0 
DO  65  J-1.100 

I F I PRET   .GE.   50.0)   GO  TO  40 

PDBHE  =  0.49401   ♦  0.71890  *  AL0G1 0 { DBHO )   -  0.2253C  *  ALOGIOIPRETI 
1  ♦  0.12616  *  AL0G10 I DBHO )    *   AL0G10 I PRET ) 
DBHE   =   10.0  **  PDBHE 


GO  TO  45 

40  DBHE   =  0.73365  ♦    1.02008   *  DBHO  -  0.01107   *    (PRET  -  50.0)   -  0.0001 

14  *    I PRET  -  50.0)    *   (PRET  -  50.0) 
45  TEM  =  DBHE  -  DBHO 

DBHE  =  DBHO  *  TEM  *  0.5 

I DBHE  =  DBHE  *   10.0  ♦  0.5 

DBHE  =   I DBHE 

DRHE  =   DBHE  »  0.1 

DENE   =  DENO  *    I  PRE T  *  0.01) 

NDENE  -   DENE   ♦  0.5 

DENE  =  NOENE 

BASE   =   0.0054542   *  DBHE   *  DBHE  *  DENE 

NBASE  =  BASE   *  10.0  +  0.5 

BASE   =  NBASE 

BASE   =  BASE  *  0. 1 

BREAK  =  49.9   *  REST   /  80.0 

I F I  BASE   .GT.   BREAK)   GO  TO  50 

DBHP  =   180.0  /   REST)    *   (0.08682   *   BASE)    ♦  0.94636 
GO  TO  52 

50  BUST  =   66.2  *    (REST  /  80.0) 
IFIBASE   .GT.   BUST)   GO  TO  51 

DBHP  =    180.0  /   REST)    *   (0.10938   *  BASE)   -  0.17858 
GO  TO  52 

51  TMPY  =  BASE  »    (80.0  /  REST) 
TEH  =  THPY  *  THPY 

DBHP   =   19.04740  *  TMPY  -  0.26673  *  TEM  ♦  0.0012539  *   TEM  *  TMPY 
1  -  448.76833 
I F ( TMPY   .GT.    80.0)   DBHP  =   DBHO  +  0.8 

52  IOBHP  =   DBHP   e   10.0  ♦  0.5 
DBHP   =   I DBHP 

DBHP  =  DBHP  *  0.1 

I F ( DBHP  -  OBHE )  60,70,61 

60  PRET  =  PRET  *  1.02 
GO  TO  65 

61  PRET   =   PRET   »  0.98 
65  CONTINUE 

70  DBHT  =  DBHE 

C 

C  COMPUTE   POST-THINNING   BASAL  AREA. 
C 

I F ( DBHT   .GT.   5.0)   GO  TO  75 

SOFT  =   11.58495   *  DBHT  -  11.09724 

GO  TO  76 

75  I F ( DBHT   .GE.    10.0)   GO  TO  77 
TEH  =  DBHT  *  DBHT 

SOFT  =   7.76226  *  DBHT  +0.85289  *  TEM  -0.07952  *   TEM  *  OBHT-3. 45624 

76  BAST  =    (REST  /  80.0)   *  SOFT 
GO  TO  80 

77  BAST  =  REST 
80  RETURN 

END 


1  1 


APPENDIX  2 
Output  of  Sample  Problem 


YIELDS   PER  ACRE  OF   EVEN-AGED  STANDS   OF  PONDERO S A  PINE 

SITE   INDEX  70 
THINNING    INTENSITY-    INITIAL-      100.      SUBSEQUENT-  80. 

ENTIRE   STAND   BEFORE    AND   AFTER  THINNING 


PERIODIC    INTERMEDIATE  CUTS 


STAND 
AGE 
( YEARS) 

TREES 
NO  . 

BASAL 
AREA 
SQ.FT. 

AVERAGE 
D.B.H. 
I  N . 

AVERAGE 
HEIGHT 
FT  • 

TOTAL 
VOLUME 
CU.FT. 

MERCHANT- 
ABLE VOLUME 
CU.FT. 

SAHTIMBER 
VOLUME 
BD.FT. 

TREES 
NO  • 

BASAL 
AREA 
SQ.FT. 

TOTAL 
VOLUME 
CU.FT. 

MERCHANT- 
ABLE VOLUME 
CU.FT. 

SAHTIMBER 
VOLUME 
BD.FT. 

3  0 
30 

950 
373 

119 

68 

4.8 
5.8 

25 
27 

15  30 
810 

360 
360 

0 
0 

577 

51 

720 

0 

0 

40 

370 

96 

6.9 

36 

1  330 

920 

0 

50 
50 

365 
188 

121 

76 

7.8 
8.6 

44 
45 

1970 
1230 

1 560 
1040 

800 
800 

177 

45 

740 

520 

0 

60 

187 

96 

9.7 

52 

1730 

1530 

2700 

70 
70 

186 
113 

114 

80 

10.6 
11.4 

58 
59 

2420 
17  30 

2190 
158  0 

5900 
5400 

7  3 

34 

690 

610 

5  00 

80 

113 

96 

12.5 

65 

2320 

2150 

7900 

90 
90 

113 

72 

112 
80 

13.5 
14.3 

70 
70 

2930 
2120 

2740 
2000 

10600 
8000 

41 

32 

810 

740 

2600 

100 

72 

93 

15.4 

75 

2620 

2490 

10500 

110 
110 

72 
22 

106 

39 

16.4 
18.1 

78 
80 

3130 
1190 

2990 
1150 

13200 
5400 

50 

67 

1940 

1840 

7800 

120 

22 

47 

19.7 

83 

1480 

1430 

7200 

130 

22 

54 

21.2 

86 

1770 

1720 

TOTAL 

9200 
YIELDS 

6670 

5430 

19600 

MINIMUM 

CUTS 

FOR  INCLUSION  IN 

TOTAL  YIELDS — 

320.   CUBIC  FEET 

AND  1500. 

BOARD 

FEET 

DHARF   MISTLETOE    INFECTION  DID  NOT   OCCUR   DURING   THE  ROTATION   OF    130.  YEARS. 
MERCH.   CU.   FT.   -  TREES  6.0   INCHES  D.B.H.    AND  LARGER  TO  4.0-INCH  TOP . 
BD.    FT.   -   TREES   10.0   INCHES   D.B.H.    AND  LARGER   TO   VARIABLE  TOP  LIMIT. 


YIELDS  PER  ACRE  OF  EVEN-AGED  STANDS  OF   PONDEROSA  PINE 

SITE   INDEX  70 
THINNING   INTENSITY-    INITIAL-      100.      SUBSEQUENT-  90. 


ENTIRE   STAND   BEFORE   AND   AFTER  THINNING 


PERIODIC    INTERMEDIATE  CUTS 


STAND 
AGE 
( YEARS  I 

30 
30 

40 

50 
50 


60 


70 
70 


80 


90 
90 


100 


110 
110 


120 
130 


TREES 
NO. 


950 
373 


370 


365 
211 


210 


209 
129 


129 


129 
84 


84 
27 


27 
27 


BASAL 
AREA 
SQ.FT. 

119 
68 

96 

121 
85 

106 

126 
90 

106 

123 
90 

103 

116 

46 

54 
62 


AVERAGE 
D.B.H. 
IN. 

4.8 
5.8 

6.9 

7.8 
8.6 


AVERAGE 
HE IGHT 
FT. 

25 
27 

36 

44 
45 


9.6 


10.5 
11.3 


12.3 


13.2 
14.0 


15.0 


15.9 
17.6 


19.1 
20.5 


52 


58 
59 


65 


70 
70 


75 


78 
80 


83 
86 


TOTAL 
VOLUME 
CU.FT. 

1530 
810 

1330 

1970 
1380 

1910 

2670 
1940 

2560 

3200 
2370 

2900 

3430 
1390 

1700 

2030 


MERCHANT- 
ABLE VOLUME 
CU.FT. 

360 
360 

920 

1560 
1170 


SAHT IMBER 
VOLUME 
BD.FT. 

0 

0 


900 
900 


TREES 
NO. 


577 


154 


BASAL 
AREA 
SQ.FT. 


51 


TOTAL 
VOLUME 
CU.FT. 


720 


MERCHANT- 
ABLE VOLUME 
CU.FT. 


SAHTIMBER 
VOLUME 
BD.FT. 


1690 


2420 
1780 


2370 


2990 
2230 


2740 


3260 
1330 


1640 
1970 


2900 


6300 
5900 


8600 


11400 

8800 


11400 


14100 
6200 


8100 
10200 


80 


36 


36 


57 


70 


590 


730 


830 


2040 


390 


640 


760 


1930 


400 


?600 


7900 


TOTAL  YIELDS 


6940 


5690 


20700 


MINIMUM  CUTS  FOR   INCLUSION   IN  TOTAL  YIELDS —     320.   CUBIC   FEET  AND     1500.   BOARD  FEET 
DHARF   MISTLETOE   INFECTION  DID  NOT  OCCUR  DURING  THE  ROTATION  OF   130.  YEARS. 
MERCH.   CU.   FT.   -  TREES  6.0   INCHES   D.B.H.   AND  LARGER  TO  4.0-INCH  TOP. 
BD.   FT.   -  TREES   10.0   INCHES  D.B.H.   AND  LARGER  TO  VARIABLE  TOP  LIMIT. 
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YIELDS   PER  ACRE  OF  EVEN-AGED  STANDS  OF  PONDEROSA  PINE 

SITE    INDEX  TO 
THINNING    INTENSITY-    INITIAL-      100.      SUBSEQUENT-  100. 


STAND 
AGE 
(YEARS) 

30 
30 

40 

50 
50 


60 


70 
70 


80 


90 
90 


100 


110 
110 


120 
130 


TREES 
NO. 


950 
373 


370 


365 
239 


?37 


235 
154 


154 


154 
104 


104 


104 

32 


32 
32 


ENTIRE    STAND   BEFORE   AND   AFTER  THINNING 


BASAL 
AREA 
SQ.FT. 

119 

68 

96 

121 
94 


114 


133 
100 


I  17 


133 
100 


1  14 


129 
49 


58 
68 


AVERAGE  AVERAGE  TOTAL  MERCHANT— 
D.B.H.        HEIGHT     VOLUME     ABLE  VOLUME 


IN. 


4.8 
5.8 


6.9 


7.8 
8.5 


9.4 


10.2 
10.9 


11.8 


12.6 
13.3 


14.2 


15.1 
16.8 


18.  3 
19.7 


FT. 


25 
27 


36 


44 
45 


51 


58 
59 


65 


69 
70 


74 


78 
80 


83 
86 


CU.FT. 


1530 
810 


1330 


1970 
1530 


2060 


2820 
2140 


2800 


3460 
2630 


3200 


3810 
1490 


1840 
2210 


CU.FT. 


360 
360 


920 


1560 
1290 


1820 


2540 
1950 


2570 


3210 
2460 


3010 


3600 
1420 


1770 
2140 


SAWTIMBER 
VOLUME 
BD.FT. 

0 

0 


1000 
1000 


2900 


6000 
5700 


9100 


11900 
9400 


12000 


15000 
6400 


8500 
10800 


TREES 
NO. 


577 


126 


81 


50 


72 


PERIODIC    INTERMEDIATE  CUTS 


BASAL 
AREA 
SQ.FT. 


51 


27 


33 


33 


80 


TOTAL  MERCHANT- 
VOLUME      ABLE  VOLUME 
CU.FT.  CU.FT. 


720 


440 


680 


830 


2320 


270 


590 


750 


2180 


SAWTIMBER 
VDLUME 
BD.FT. 


2500 


3600 


TOTAL  YIELDS 


7200 


5660 


21900 


MINIMUM  CUTS  FOR   INCLUSION   IN  TOTAL  YIELDS--     320.   CUBIC  FEET  AND     1500.    BOARD  FEET 
DWARF   MISTLETOE   INFECTION  DID  NOT  OCCUR  DURING  THE  ROTATION  OF    130.  YEARS. 
MERCH.   CU.   FT.   -  TREES  6.0   INCHES  D.B.H.    AND  LARGER   TO  4.0-INCH  TOP. 
BD.   FT.   -  TREES   10.0   INCHES   D.B.H.   AND  LARGER   TO  VARIABLE  TOP  LIMIT. 


YIELDS   PER   ACRE  OF   EVEN-AGED  STANDS  OF   PONDEROSA  PINE 

SITE   INDEX  70 
THINNING   INTENSITY-    INITIAL-     100.      SUBSEQUENT-  80. 

ENTIRE   STAND   BEFORE   AND  AFTER  THINNING  PERIODIC   INTERMEDIATE  CUTS 


STAND 
AGE 
(YEARS) 

TREES 
NO. 

8ASAL 
AREA 
SQ.FT. 

AVERAGE 
D.B.H. 
IN. 

AVERAGE 
HEIGHT 
FT. 

TOTAL 
VOLUME 
CU.FT. 

MERCHANT- 
ABLE VOLUME 
CU.FT. 

SAWT IMBER 
VOLUME 
BD.FT. 

TREES 
NO. 

BASAL 
AREA 
SQ.FT. 

TOTAL 
VOLUME 
CU.FT. 

MERCHANT- 
ABLE VOLUME 
CU.FT. 

SAWTIMBER 
VOLUME 
BD.FT. 

30 
30 

950 
374 

119 

28 

4.  8 
3.7 

25 
23 

1510 
410 

0 
0 

0 
0 

576 

91 

1100 

0 

0 

40 

372 

59 

5.4 

32 

820 

290 

0 

50 
50 

332 
253 

79 
64 

6.6 
6.8 

40 
41 

1230 
1000 

800 
670 

0 
0 

79 

15 

230 

130 

0 

60 

227 

79 

8.0 

47 

1350 

1090 

300 

70 
70 

191 
191 

86 
86 

9.  1 
9.  1 

54 
54 

1630 
1630 

1420 
1420 

1700 
1700 

0 

0 

0 

0 

0 

80 

156 

87 

10.  1 

60 

1860 

1670 

3500 

90 
90 

124 
124 

83 
83 

11.1 
11.1 

64 
64 

1960 
1960 

1790 
1790 

5500 
5500 

0 

0 

0 

0 

0 

100 

95 

76 

12.1 

68 

1920 

1770 

6400 

110 
110 

71 
37 

66 
40 

13.1 
14.0 

72 
73 

1780 
1080 

1660 
1010 

6300 
4000 

34 

26 

700 

650 

2300 

120 

29 

38 

15.5 

76 

1090 

1030 

4400 

130 

21 

33 

16.9 

79 

970 

1010 

4200 

TOTAL  YIELDS  3000  1660  6500 

MINIMUM  CUTS  FOR    INCLUSION   IN  TOTAL   YIELDS—     320.  CUBIC  FEET  AND     1500.    BOARD  FEET 
DWARF   MISTLETOE    INFECTION  STARTED  AT   AGE     10.    AND  RATING  WAS       6.0  AT  AGE  130. 
NOTE   THAT  NOT  ALL  SCHEDULED  THINNINGS  WERE  POSSIBLE. 

MERCH.  CU.  FT.  -  TREES  6.0  INCHES  D.B.H.  AND  LARGER  TO  4.0-INCH  TOP. 
BD.    FT.   -  TREES  10.0   INCHES   D.B.H.   AND  LARGER  TO  VARIABLE  TOP  LIMIT. 
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YIELDS  PER  ACRE  OF   EVEN-AGED  STANDS  OF  PONDEROSA  PINE 

SITE   INDEX  70 
THINNING   INTENSITY-   INITIAL-     100.      SUBSEQUENT-  90. 

ENTIRE  STAND  BEFORE   AND  AFTER  THINNING 


PERIODIC   INTERMEDIATE  CUTS 


STAND 
AGE 
(YEARS) 

TREES 
NO. 

B  A  SA  L 
AREA 
SQ.FT. 

AVCKAut 

D.B.H. 
IN. 

AUCOAPF 
A  V  tl\Abc 

HEIGHT 
FT. 

TOTAL 
VOLUME 
CU.FT. 

MERCHANT- 
ABLE VOLUME 
CU.FT. 

SAWT IMBER 
VOLUME 
BD.FT. 

TREES 
NO. 

BASAL 
AREA 
SQ.FT. 

TOTAL 
VOLUME 
CU.FT. 

MERCHANT- 
ABLE VOLUME 
CU.FT. 

30 
30 

950 

1  "7  A 

119 

£o 

4.8 

^  T 

J  m  1 

25 
23 

1510 
410 

0 

o 

0 

o 

576 

91 

1100 

0 

40 

372 

59 

5.4 

32 

820 

290 

0 

50 
50 

332 
289 

79 
71 

6.6 

O  •  f 

40 

L.  1 

1230 
1 1 00 

800 
7  30 

0 

o 

43 

8 

130 

70 

60 

256 

85 

7.8 

47 

1450 

1150 

0 

70 
70 

215 
215 

91 
91 

8.8 

Q  Q 

54 

1720 
1720 

1480 
1480 

1500 
1500 

0 

0 

0 

0 

80 

175 

92 

9.8 

59 

1950 

1740 

3200 

90 
90 

138 
138 

88 
88 

10.8 
10.8 

64 
64 

2060 
2060 

1870 
1870 

5200 
5200 

0 

0 

0 

0 

100 

106 

81 

11.8 

68 

2030 

1870 

6600 

110 
110 

79 
44 

71 
45 

12.8 
13.7 

72 
73 

1880 
1220 

1750 
1140 

6500 
4500 

35 

26 

660 

610 

120 

34 

42 

15.1 

76 

1200 

1140 

4700 

130 

25 

37 

16.4 

78 

1090 

1140 

TOTAL 

4600 
YIELDS 

2980 

1750 

MINIMUM  CUTS 

FOR   INCLUSION  IN 

TOTAL  YIELDS — 

320.   CUBIC  FEET 

AND  1500. 

BOARD 

FEET 

DWARF 

MISTLETOE   INFECTION  STARTED  AT  AGE 

10. 

AND  RATING  WAS 

6.0   AT   AGE  130. 

NOTE   THAT  NOT  ALL  SCHEDULED  THINNINGS  WERE  POSSIBLE. 

MERCH.  CU.  FT.  -  TREES  6.0  INCHES  D.B.H.  AND  LARGER  TO  4.0-INCH  TOP. 
BD.   FT.  -  TREES   10.0  INCHES  D.B.H.   AND  LARGER  TO  VARIABLE  TOP  LIMIT. 


SAW  TIMBER 
VOLUME 
BD.FT. 


2000 


6600 


YIELDS  PER  ACRE  OF  EVEN-AGED  STANDS  OF  PONDEROSA  PINE 

SITE   INDEX  70 
THINNING   INTENSITY-   INITIAL-      100.      SUBSEQUENT-  100. 


STAND 
AGE 
(YEARS) 

30 
30 

40 

50 
50 


60 


70 
70 


80 


90 
90 


100 


110 
110 


120 
130 


TREES 
NO. 


950 
374 


372 


332 
327 


284 


238 
238 


194 


153 
153 


117 


87 
53 


41 

30 


ENTIRE  STANO  BEFORE   AND  AFTER  THINNING 


BASAL 
AREA 
SQ.FT. 

119 

28 


79 
78 


92 


98 
98 


92 
92 


83 


73 
50 


47 
41 


AVERAGE  AVERAGE  TOTAL  MERCHANT- 
D.B.H.       HEIGHT     VOLUME     ABLE  VOLUME 


IN. 


4.8 
3.7 


5.4 


6.6 
6.6 


7.7 


8.7 
8.7 


9.6 


10.5 
10.5 


11.4 


12.4 
13.2 


14.5 
15.8 


25 
23 


32 


40 
40 


53 
53 


59 


64 
64 


68 


71 

72 


75 
78 


CU.FT. 


1510 
410 


820 


1230 
1210 


1570 


1860 
1860 


2060 


2140 
2140 


2080 


1940 
1360 


1330 
1200 


CU.FT. 


290 


800 
790 


1230 


1590 
1590 


1830 


1940 
1940 


1900 


1790 
1270 


1250 
1270 


SAWTIMBER 
VOLUME 
BD.FT. 

0 

0 


1500 
1500 


3100 


4900 
4900 


6500 


6600 
4800 


5100 
4900 


TREFS 
NO. 


576 


34 


PERIODIC   INTERMEDIATE  CUTS 


BASAL 
AREA 
SQ.FT. 


91 


23 


TOTAL 
VOLUME 
CU.FT. 


1100 


MERCHANT- 
ABLE VOLUME 
CU.FT. 


20 


580 


10 


520 


SAWTIMBER 
VOLUME 
BD.FT. 


TOTAL  YIELDS 


2900 


1790 


6700 


MINIMUM  CUTS  FOR    INCLUSION   IN  TOTAL  YIELDS —     320.   CUBIC  FEET  AND     1500.    BOARD  FEET 
DWARF  MISTLETOE   INFECTION  STARTED  AT  AGE     10.   AND  RATING  WAS       6.0  AT  AGE  130. 
NOTE   THAT  NOT  ALL   SCHEDULED   THINNINGS   WERE  POSSIBLE. 

MERCH.  CU.  FT.  -  TREES  6.0  INCHES  D.B.H.  AND  LARGER  TO  4.0-INCH  TOP. 
BD.   FT.  -  TREES   10. 0   INCHES  D.B.H.   AND  LARGER  TO  VARIABLE  TOP  LIMIT. 
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YIELDS   PER  ACRE  OF   EVEN-AGED  STANDS  OF  PONDEROSA  PINE 

SITE   INDEX  70 
THINNING    INTENSITY-    INITIAL-      100.      SUBSEQUENT-  80. 

ENTIRE   STAND   BEFORE   AND  AFTER  THINNING  PERIODIC   INTERMEDIATE  CUTS 


STAND 
AGE 
( YEARS  ) 

TREES 
NO. 

BASAL 
AREA 
SQ.FT. 

AVERAGE 
D.B.H. 
IN. 

AVERAGE 
HEIGHT 
FT. 

TOTAL 
VOLUME 
CU.FT. 

MERCHANT- 
ABLE VOLUME 
CU.FT. 

SAWTIMBER 
VOLUME 
BD.FT. 

TREES 
NO. 

BASAL 
AREA 
SQ.FT. 

T  OT  A  L 
VOLUME 
CU.FT. 

ABLE  VOLUME 
CU.FT. 

C  AlJT  I  UDtD 

J  Art  1  J MbtK 

VOLUME 
BD.FT. 

50 
50 

575 
575 

121 
121 

6.2 
6.2 

40 
40 

1920 
1920 

1060 
1060 

0 
0 

o 

o 

Q 

u 

0 

60 

447 

116 

6.9 

46 

2020 

1400 

0 

70 
70 

337 
337 

106 
106 

7.6 
7.6 

53 
53 

2040 
2040 

1580 
1580 

0 

o 

o 

o 

o 

o 

0 

80 

246 

95 

8.4 

59 

1960 

1640 

1100 

90 
90 

174 
174 

80 
80 

9.2 
9.2 

63 
63 

1810 
1810 

1580 
1580 

2000 
2000 

0 

0 

0 

0 

0 

100 

121 

67 

10.  1 

67 

1640 

1470 

3000 

110 
110 

85 
52 

57 
40 

11.1 
11.9 

71 
71 

1480 
1060 

1350 
980 

4100 
3500 

33 

17 

420 

370 

600 

120 

40 

39 

13.3 

75 

1070 

1000 

3800 

130 

29 

34 

14.7 

77 

990 

980 

TOTAL 

3800 
YIELDS 

1410 

1350 

3800 

MINIMUM 

CUTS 

FOR   INCLUSION  IN 

TOTAL  YIELDS —     320.   CUBIC  FEET 

AND  1500. 

BOARD 

FEET 

DWARF  MISTLETOE  INFECTION  STARTED  AT  AGE  10.  AND  RATING  WAS  6.0  AT  AGE  130. 
NOTE  THAT  NOT  ALL   SCHEDULED  THINNINGS  WERE  POSSIBLE. 

MERCH.  CU.  FT.  -  TREES  6.0  INCHES  D.B.H.  AND  LARGER  TO  4.0-INCH  TOP. 
BD.   FT.   -  TREES   10.0   INCHES  D.B.H.    AND  LARGER   TO  VARIABLE  TOP  LIMIT. 


STAND 
AGE 
(  YEARS ) 

50 
50 

60 

70 
70 


80 


90 
90 


100 


110 
110 


120 
130 


TREES 
NO. 


575 
575 


337 
337 


246 


174 
174 


121 


85 
60 


45 
32 


YIELDS  PER  ACRE  OF  EVEN-AGED  STANDS  OF   PONDEROSA  PINE 

SITE   INDEX  70 
THINNING   INTENSITY-   INITIAL-     100.      SUBSEQUENT-  90. 


ENTIRE   STAND   BEFORE   AND  AFTER  THINNING 


BASAL 
AREA 
SQ.FT. 

121 
121 

116 

106 
106 

95 

80 
80 


67 


57 
45 


41 
36 


AVERAGE  AVERAGE  TOTAL  MERCHANT- 
D.B.H.        HEIGHT     VOLUME     ABLE  VOLUME 


IN. 


6.2 
6.2 


6.9 


7.6 
7.6 


8.4 


9.2 
9.2 


10.1 


11.1 
11.7 


13.0 
14.3 


FT. 


40 
40 


53 
53 


59 


63 
63 


67 


71 
71 


74 
77 


CU.FT. 


1920 
1920 


2020 


2040 
2040 


1960 


1810 
1810 


1640 


1480 
1180 


1150 
1030 


CU.FT. 


1060 
1060 


1400 


1580 
1580 


1640 


1580 
1580 


1470 


1350 
1080 


1070 
1080 


SAWTIMBER 
VOLUME 
BD.FT. 

0 
0 


1100 


2000 
2000 


3000 


4100 
3800 


4000 
3900 


TREES 
NO. 


25 


PERIODIC    INTERMEDIATE  CUTS 


BASAL 
AREA 
SQ.FT. 


12 


TOTAL  MERCHANT- 
VOLUME      ABLE  VOLUME 


CU.FT. 


CU.FT. 


300 


270 


SAWTIMBER 
VOLUME 
BD.FT. 


300 


TOTAL  YIELDS 


1330 


1080 


MINIMUM  CUTS  FOR   INCLUSION   IN  TOTAL  YIELDS —     320.   CUBIC  FEET  AND      1500.   BOARD  FEET 
DWARF  MISTLETOE   INFECTION  STARTED  AT   AGE     10.   AND  RATING  WAS       6.0  AT  AGE  130. 
NOTE  THAT  NOT  ALL   SCHEDULED   THINNINGS  WERE  POSSIBLE. 

MERCH.  CU.  FT.  -  TREES  6.0  INCHES  D.B.H.  AND  LARGER  TO  t. 0-INCH  TOP. 
BD.   FT.   -  TREES   10.0   INCHES  D.B.H.   AND  LARGER  TO  VARIABLE   TOP  LIMIT. 
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STAND 
AGE 
(YEARS) 

50 
50 

60 

70 
70 


90 
90 


100 


110 
110 


120 
130 


TREES 
NO. 


575 
575 


337 
337 


246 


174 
174 


121 


85 
69 


51 
37 


YIELDS  PER  ACRE  OF   EVEN-AGED  STANDS  OF  PONDEROSA  PINE 

SITE   INDEX  70 
THINNING    INTENSITY-    INITIAL-      100.      SUBSEQUENT-  100. 


ENTIRE   STAND   BEFORE   AND  AFTER  THINNING 


BASAL 
AREA 
SQ.FT. 

121 
121 

116 

106 
106 


95 


80 
80 


67 


57 
50 


46 
40 


AVERAGE  AVERAGE  TOTAL  MERCHANT- 
D.B.H.        HEIGHT      VOLUME      ABLE  VOLUME 


IN. 


6.2 
6.2 


6.  9 


7.6 
7.6 


8.4 


9.2 
9.2 


10.  1 


11.1 
11.5 


12.8 
14.1 


FT. 


40 
40 


46 


53 
53 


59 


63 
63 


67 


71 
71 


74 
77 


CU.FT. 


1920 
1920 


2020 


2040 
2040 


1960 


1810 
1810 


1640 


1480 
1300 


1250 
1150 


CU.FT. 


1060 
1060 


1400 


1580 
1580 


1640 


1580 
1580 


1470 


1350 
1190 


1170 
1190 


SAWTIMBER 
VOLUME 
BD.FT. 

0 
0 


1100 


2000 
2000 


3000 


4100 
4000 


4400 
4300 


TREKS 
NO. 


16 


PERIODIC    INTERMEDIATE  CUTS 


BASAL 
AREA 


TOTAL  MERCHANT- 
VOLUME      ABLE  VOLUME 


SQ.FT.  CU.FT. 


CU.FT. 


180 


160 


SAWTIMBER 
VOLUME 
RD.FT. 


100 


TOTAL  YIELDS 


1330 


1190 


MINIMUM  CUTS  FOR   INCLUSION   IN  TOTAL  YIELDS —     320.   CUBIC  FEET  AND     1500.   BOARD  FEET 
DWARF   MISTLETOE    INFECTION  STARTED  AT   AGE      10.    AND  RATING  WAS        6.0   AT   AGE  130. 
NOTE   THAT  NOT  ALL   SCHEDULED  THINNINGS  WERE  POSSIBLE. 

MERCH.  CU.  FT.  -  TREES  6.0  INCHES  D.B.H.  AND  LARGER  TO  4.0-INCH  TOP. 
BD.    FT.   -   TREES    10. 0    INCHES   D.B.H.    AND  LARGER   TO   VARIABLE   TOP  LIMIT. 


Agriculture— CSU,  Ft.  Collins 
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